home *** CD-ROM | disk | FTP | other *** search
/ U.S. Robotics Connections 2 / US Robotics Connections.iso / mac / USR_Mac.Dir / 00163.ls < prev    next >
Encoding:
Text File  |  1996-03-09  |  1.9 KB  |  84 lines
  1. on startMovie
  2.   global mycursor
  3.   set the colorDepth to 8
  4.   set mycursor to [1, 2]
  5.   set the visible of sprite 15 to 0
  6.   set the visible of sprite 16 to 0
  7.   set the visible of sprite 17 to 0
  8.   set the visible of sprite 18 to 0
  9.   set the visible of sprite 19 to 0
  10.   set the visible of sprite 20 to 0
  11. end
  12.  
  13. on idle
  14. end
  15.  
  16. on resetit
  17.   set a to 0
  18.   set the timeoutScript to "nothing"
  19.   puppetSprite(30, 0)
  20.   puppetSprite(31, 0)
  21.   puppetSprite(32, 0)
  22.   puppetSprite(33, 0)
  23.   puppetSprite(34, 0)
  24.   puppetSprite(35, 0)
  25.   puppetSprite(36, 0)
  26.   puppetSprite(37, 0)
  27.   puppetSprite(38, 0)
  28.   puppetSprite(39, 0)
  29.   puppetSprite(40, 0)
  30.   puppetSprite(41, 0)
  31.   set the visible of sprite 15 to 0
  32.   set the visible of sprite 16 to 0
  33.   set the visible of sprite 17 to 0
  34.   set the visible of sprite 18 to 0
  35.   set the visible of sprite 19 to 0
  36.   set the visible of sprite 20 to 0
  37.   updateStage()
  38. end
  39.  
  40. on rollme
  41.   global mycursor
  42.   repeat with a = 30 to 41
  43.     if rollOver(a) then
  44.       puppetSprite(a, 1)
  45.       set old to the castNum of sprite a
  46.       set the castNum of sprite a to old + 1
  47.       set the visible of sprite (a - 20) to 1
  48.       set the cursor of sprite a to mycursor
  49.       updateStage()
  50.       repeat while rollOver(a)
  51.         go(the frame)
  52.         if the mouseDown then
  53.           sound playFile 1, "NOISE.AIF"
  54.           repeat while the mouseDown
  55.             if a < 30 then
  56.               set the castNum of sprite a to old
  57.               set the visible of sprite (a - 20) to 0
  58.               updateStage()
  59.               beep()
  60.               puppetSprite(a, 0)
  61.             end if
  62.           end repeat
  63.           exit
  64.           exit repeat
  65.         end if
  66.       end repeat
  67.       set the castNum of sprite a to old
  68.       set the visible of sprite (a - 20) to 0
  69.       puppetSprite(a, 0)
  70.       updateStage()
  71.     end if
  72.   end repeat
  73. end
  74.  
  75. on Gothere
  76.   sound fadeOut 1, 2 * 60
  77.   go("main2")
  78. end
  79.  
  80. on gothere2
  81.   set the timeoutScript to "nothing"
  82.   go("internet")
  83. end
  84.